﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='添加栏目'><p>"

dim classid
classid=Request("classid")

if classid="" or IsNumeric(classid) = False then Call error("ID错误！")

dim test,title,author
test=Request("test")
title=Request("title")
author=Request("author")

if test="" or title="" or author="" then Call error("各项都不可以为空！")

If IsNumeric(author) Then Call error("来源不能是纯数字")

if len(title)>30 or len(author)>15 or len(test)>20000 then Call error("标题不要超过30字，来源不要超过15字，文章内容不要超过20000字，分多篇写。这有助于提高效率！")

if ifArticleRepeat(title) then Call error("站内已存在同样标题的文章,请不要重复发表！")

dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select classid,test,hu_date,title,hu_author from 74hu_article",myconn,1,3
rs.addnew
rs("classid")=classid
rs("test")=test
rs("HU_date")=time_now
rs("title")=title
rs("HU_author")=author
rs.update
rs.close
set rs=nothing

w "记录添加成功!"
%>
<br/>----------<br/>
<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[返回文章]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a>
<%Call Last%>
